﻿Imports MicrosoftZuneLibrary

Public Class frmZuneDB

    Dim zuneDB As ZuneLibrary

    Private Sub frmZuneDB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("aaa")

        dbtest()

    End Sub

    Public Sub dbtest()
        zuneDB = New ZuneLibrary()

        Dim music(), videos(), apps As String

        zuneDB.Initialize("D:\ZuneStore.sdf", False)
        zuneDB.GetKnownFolders(music, videos, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, apps)
    End Sub

End Class